home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / maxs / KFBSpeedup.lha / make_kfbdownload_patches.bas < prev    next >
BASIC Source File  |  1997-08-07  |  1KB  |  60 lines
  1. print
  2. print "     Making patched KFBdownload executables for each area, please wait..."
  3. print
  4. print "       Please note, empty areas will NOT have a file created for it !"
  5. print
  6. print "         Each area should have at least one file in it if you want"
  7. print "            exe's to be made automatically for *all* your areas"
  8. print
  9. print "      The files will be made in RAM: - copy them to KFB when finished"
  10. print "        and change your menus to use the new exe for each file area"
  11. dim areas(99)
  12. open "ram:kfblister.work" for input as #7
  13. l=lof(7)
  14. totalfiles=l
  15. for a=1 to l
  16. a$=input$(1,#7)
  17. b=asc(a$)
  18. areas(b)=areas(b)+1
  19. next a
  20. close #7
  21.  
  22. for a=1 to 99
  23. if areas(a)>0 then gosub 100
  24. next a
  25.  
  26. print
  27. print
  28. print "                              All done :-)"
  29. end
  30.  
  31. 100 rem
  32. open "kfb:kfbdownload" as #1 len=6212
  33. field #1,1000 as a$,1000 as b$,1000 as c$,1000 as d$,1000 as e$,1000 as f$,212 as g$
  34.  
  35. f2$="RAM:KFBdownload"
  36.  
  37. if a<10 then f2$=f2$+"0"+right$(str$(a),1)
  38. if a>9 then f2$=f2$+right$(str$(a),2)
  39. patch$="dat/FB"+right$(f2$,2) 
  40.  
  41. open f2$ for output as #2
  42. l=lof(1)
  43.  
  44. get #1,1
  45.  
  46. mid$(f$,811,8)=patch$
  47.  
  48. print #2,a$;
  49. print #2,b$;
  50. print #2,c$;
  51. print #2,d$;
  52. print #2,e$;
  53. print #2,f$;
  54. print #2,g$;
  55.  
  56. close #1
  57. close #2
  58.  
  59. return
  60.